home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8506c.d64 / apocalypse now (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  18KB  |  563 lines
  1. 1 REM ++++++++++++++++++
  2. 2 REM + APOCALYPSE NOW +
  3. 3 REM ++++++++++++++++++********
  4. 4 REM * BY HELMUT BURGEMEISTER *
  5. 5 REM * AND HELMUT BOELCSKEI   *
  6. 6 REM **************************
  7. 7 REM ^^^^^^^^^^^^^^^^^^^^^^^^^^^
  8. 8 REM ^   MASCHINEN PROGRAMM    ^
  9. 9 REM ^^^^^^^^^^^^^^^^^^^^^^^^^^^
  10. 10 PRINT"[147]BITTE WARTEN !"
  11. 20 POKE53281,0
  12. 30 POKE53280,0
  13. 40 FORI=832TO832+33:READA:POKEI,A:NEXT
  14. 50 DATA120,169,51,133,1,169,0,133,95,133,90,133,88,169,208,133,96,169,240
  15. 60 DATA133,89,169,224,133,91,32,191,163,169,55,133,1,88,96
  16. 80 SYS832:POKE850,160:SYS832
  17. 100 REM ___________________________
  18. 101 REM _ DATEN FUER NEUE ZEICHEN _
  19. 102 REM ___________________________
  20. 130 POKE56576,PEEK(56576)AND252
  21. 135 POKE53272,8:POKE648,192
  22. 140 PRINT"[147]BITTE WARTEN !"
  23. 150 FORI=280TO559:READA:POKE57344+I,A:NEXT
  24. 210 DATA255,255,255,255,255,255,255,255
  25. 220 DATA0,0,0,37,205,255,255,255
  26. 230 DATA0,0,0,0,0,255,255,255
  27. 240 DATA137,66,36,24,153,36,66,137
  28. 245 DATA255,129,129,255,129,129,255,255
  29. 250 DATA3,13,49,193,193,49,13,3
  30. 255 DATA0,96,252,255,252,96,0,0
  31. 260 DATA60,60,60,24,24,0,0,0
  32. 265 DATA255,126,255,126,255,126,255,126
  33. 270 DATA0,0,0,255,255,255,0,0
  34. 275 DATA24,60,24,63,88,88,36,66
  35. 280 DATA25,61,25,62,88,88,36,66
  36. 285 DATA0,0,60,32,60,32,32,32
  37. 290 DATA0,0,68,68,68,68,68,124
  38. 295 DATA0,0,124,64,124,64,64,124
  39. 300 DATA0,0,32,32,32,32,32,60
  40. 305 DATA126,255,255,231,231,255,255,126
  41. 310 DATA0,0,0,0,8,5,3,7
  42. 315 DATA0,0,0,0,12,62,127,255
  43. 320 DATA0,0,6,31,127,255,255,255
  44. 325 DATA0,0,0,192,231,239,255,255
  45. 330 DATA0,0,56,252,252,254,255,255
  46. 335 DATA255,127,127,63,31,12,0,0
  47. 340 DATA255,255,254,152,0,0,0,0
  48. 345 DATA255,191,31,15,3,1,0,0
  49. 350 DATA255,255,255,248,248,224,0,0
  50. 355 DATA0,0,36,24,24,36,0,0
  51. 360 DATA65,39,18,207,63,191,127,255
  52. 365 DATA160,68,88,225,250,252,254,255
  53. 370 DATA255,255,255,255,255,255,255,255
  54. 375 DATA255,255,243,195,195,192,0,0
  55. 380 DATA0,0,35,254,35,0,0,0
  56. 385 DATA4,4,11,48,48,64,0,0
  57. 390 DATA0,0,196,127,196,0,0,0
  58. 395 DATA0,32,32,208,12,12,2,0
  59. 400 REM +++++++++++++++++
  60. 401 REM + SPRITES DATEN +
  61. 402 REM +++++++++++++++++
  62. 500 FORI=50304TO50304+62:READA:POKEI,A:NEXT
  63. 505 FORI=50368TO50368+62:READA:POKEI,A:NEXT
  64. 510 FORI=50432TO50432+62:READA:POKEI,A:NEXT
  65. 511 FORI=50496TO50496+62:READA:POKEI,A:NEXT
  66. 512 FORI=50560TO50560+62:READA:POKEI,A:NEXT
  67. 513 FORI=50624TO50624+62:READA:POKEI,A:NEXT
  68. 514 FORI=50688TO50688+62:READA:POKEI,A:NEXT
  69. 515 FORI=50752TO50752+62:READA:POKEI,A:NEXT
  70. 517 PRINT"    APOCALYPSE NOW "
  71. 518 PRINT"  [158]BY HELMUT [159]BURGEMEISTER[154][157][157][157][157][157][157][157][157][157][157][157][157][157]AND HELMUT BOELCSKEI  "
  72. 519 DATA0,0,0
  73. 520 DATA0,0,0,255,255,255,0,48,0,3,255,193,4,32,97,8,32,55,16,42,153
  74. 525 DATA96,34,1,128,79,131,128,66,6,128,138,152,255,128,96,64,64,128
  75. 530 DATA32,33,0,16,33,0,143,254,0,129,2,0,127,255,248,0,0,0,0,0,0
  76. 540 DATA0,0,0,0,0,0,31,255,240,0,40,0,0,16,0,0,104,0,0,132,0
  77. 545 DATA1,2,0,6,249,128,4,252,128,11,254,64,9,252,64,4,0,128,3,3,0,0,252,0
  78. 550 DATA1,50,0,2,1,0,4,0,128,28,0,224,0,0,0,0,0,0
  79. 560 DATA0,0,0,0,0,0,255,255,255,0,12,0,131,255,112,135,4,32
  80. 565 DATA252,4,16,153,68,8,128,68,6,193,242,1,96,66,1,24,65,1,6,1,255,1,2,2,0
  81. 570 DATA132,4,0,132,8,0,127,241,0,64,129,31,255,254,0,0,0,0,0,0
  82. 580 DATA0,0,240,0,15,1,0,240,193,15,111,103,240,240,65,3,32,145,4,42,3
  83. 585 DATA8,34,134,0,47,8,16,66,144,96,82,96,128,128,128,128,129,0,143,65,0
  84. 590 DATA240,33,0,64,46,8,32,242,240,31,15,0,129,240,0,143,0,0,112,0,0
  85. 600 DATA15,0,0,128,240,0,131,15,0,230,252,240,156,240,15,137,4,192,192,84,32
  86. 605 DATA97,68,16,16,244,0,9,66,8,6,82,6,1,1,1,0,129,1,0,130,241,0,132,15
  87. 610 DATA16,116,2,15,143,4,0,240,248,0,15,129,0,0,241,0,0,14
  88. 620 DATA0,0,0,0,0,0,0,3,0,0,15,0,0,63,0,0,240,0,0,192,0,0,20,0,0,20,0,0,40,0
  89. 625 DATA0,40,0,0,20,0,0,20,0,0,40,0,0,40,0,0,20,0,0,95,0,0,170,0,3,255,192
  90. 630 DATA13,95,112,3,255,192
  91. 640 DATA0,0,0,0,0,0,0,192,0,0,240,0,0,63,0,0,15,0,0,3,0,0,20,0,0,20,0,0,40,0
  92. 645 DATA0,40,0,0,20,0,0,20,0,0,40,0,0,40,0,0,20,0,0,95,0,0,170,0,3,255,192
  93. 650 DATA13,95,112,3,255,192
  94. 660 DATA128,0,1,71,255,242,36,0,4,16,255,12,25,0,148,38,0,100,2,0,68,69,36,196
  95. 665 DATA69,153,68,124,126,125,68,60,68,68,90,68,68,129,68,67,0,196,66,255,68,68
  96. 670 DATA20,36,40,34,20,16,65,24,47,255,228,64,0,2,128,0,1
  97. 700 REM ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
  98. 701 REM ^ INETIALISIERUNG VARIABLEN ^
  99. 702 REM ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
  100. 997 GOSUB62130:POKE50169,22:POKE50168,18
  101. 998 V=53248:POKEV+21,1:POKEV+42,14
  102. 999 X=250:Y=94:GOSUB50000
  103. 1000 X=250:Y=94:A=1:OT=1:V=53248:POKE50168,18:GOSUB63000:O=PEEK(V+31):AB=AC
  104. 1001 POKEV+21,1:POKEV+29,3:POKEV+39,3:B=1:PRINT"[147]":Q=13:X2=0:Y2=90:B2=4:C2=3
  105. 1002 GOSUB60100:POKEV+21,1
  106. 1003 H=32:EN=10:PU=.05:B9=0:HU=0
  107. 1004 POKEV+2,X2:POKEV+3,Y2:HB=4
  108. 1005 POKEV+28,12:POKEV+37,2:POKEV+38,5
  109. 1006 POKE50170,23:POKE50171,24
  110. 1009 POKESI+11,65:JS=PEEK(V+30):O=PEEK(V+31)
  111. 1010 REM HAUPTPROGRAMM
  112. 1011 J=PEEK(56320):JS=PEEK(V+30)
  113. 1020 IF(JAND4)=0THENX=X-5:A=A-1
  114. 1030 IF(JAND8)=0THENX=X+5:A=A+1
  115. 1040 IF(JAND1)=0THENY=Y-5
  116. 1050 IF(JAND2)=0THENY=Y+5
  117. 1055 IFA>3THENA=3
  118. 1056 IFA<1THENA=1
  119. 1059 IFY<85THENY=85
  120. 1060 ONAGOSUB2000,2010,2020
  121. 1065 Y=Y+AB
  122. 1070 POKEV,X:POKEV+1,Y
  123. 1080 IF(JAND16)=0THENGOSUB2050
  124. 1090 O=PEEK(V+31):IFO=1THEN3200
  125. 1098 IFX>250THENB=B-1:X=250:BI=0:HU=0:B9=0:POKEV+21,1:IFB<1THENB=1
  126. 1099 IFX<5THENB=B+1:X=5:BI=0
  127. 1100 ONBGOSUB4500,5000,5500,6000
  128. 1110 POKE49152+EN+40*3,H:EN=EN-PU:H=32
  129. 1888 IFEN>10THEN1010
  130. 1889 GOSUB61000:GOSUB60900
  131. 1890 IFEN<=0THENEN=0:AB=4:POKESI+7,100:GOTO1065
  132. 1900 GOTO1010
  133. 1997 REM ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
  134. 1998 REM ^BEWEGUNGSRICHTUNG VON SPRITE^
  135. 1999 REM ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
  136. 2000 IF(JAND4)=0THENPOKE50168,21:POKESI+7,255:RETURN
  137. 2001 POKE50168,18:POKESI+7,200
  138. 2009 RETURN
  139. 2010 POKE50168,19
  140. 2019 RETURN
  141. 2020 IF(JAND8)=0THENPOKE50168,22:POKESI+7,255:RETURN
  142. 2021 POKE50168,20:POKESI+7,200
  143. 2029 RETURN
  144. 2049 REM __________________
  145. 2050 REM _ SCHUSS ROUTINE _
  146. 2051 REM __________________
  147. 2059 IF(JAND4)=0ANDA=1THENGOSUB3300:RETURN
  148. 2060 IFA=1THENGOSUB3000
  149. 2070 IFA=2THENGOSUB3030
  150. 2079 IF(JAND8)=0ANDA=3THENGOSUB3400:RETURN
  151. 2080 IFA=3THENGOSUB3060
  152. 2090 RETURN
  153. 3000 X1=INT(X/8-4):Y1=INT(Y/8-5)
  154. 3005 FORE=X1TO0STEP-1:GOSUB61400
  155. 3006 PO=PEEK(49152+E+40*Y1):POKE49152+E+40*Y1,66:POKE49152+E+40*Y1,PO
  156. 3007 IFPEEK(49152+E-1+40*Y1)<>32THENS=-1:GOTO3100
  157. 3010 NEXTE:RETURN
  158. 3030 X1=INT(X/8):Y1=INT(Y/8-3)
  159. 3033 FORE=Y1TO25STEP1:GOSUB61400
  160. 3040 PO=PEEK(49152+X1+40*E):POKE49152+X1+40*E,42:POKE49152+X1+40*E,PO
  161. 3045 IFPEEK(49152+X1+40*E+40)<>32THEN3110
  162. 3050 NEXTE:RETURN
  163. 3060 X1=INT(X/8+4):Y1=INT(Y/8-5)
  164. 3070 FORE=X1TO39STEP1:GOSUB61400
  165. 3075 PO=PEEK(49152+E+40*Y1):POKE49152+E+40*Y1,68:POKE49152+E+40*Y1,PO
  166. 3077 IFPEEK(49152+E+1+40*Y1)<>32THENS=1:GOTO3100
  167. 3080 NEXTE:RETURN
  168. 3097 REM +++++++++++++++++++++++
  169. 3098 REM + AUFPRALL VON SCHUSS +
  170. 3099 REM +++++++++++++++++++++++
  171. 3100 POKESI+10,3:GOSUB60700:IFPEEK(49152+E+S+40*Y1)<>51THEN3150
  172. 3102 POKE49152+E+S+40*Y1,38:FORT=0TO100:NEXT:POKE49152+E+S+40*Y1,32:E=0
  173. 3103 SC=SC+6:GOSUB61200:RETURN
  174. 3110 POKESI+10,3:GOSUB60700:IFPEEK(49152+X1+40*E+40)<>51THEN3170
  175. 3111 POKE49152+X1+40*E+40,38
  176. 3112 FORT=0TO110:NEXT:POKE49152+X1+40*E+40,32:E=0:SC=SC+8:GOSUB61200:RETURN
  177. 3150 PO=PEEK(49152+E+S+40*Y1):POKE49152+E+S+40*Y1,38
  178. 3160 FORT=0TO100:NEXT:POKE49152+E+S+40*Y1,PO:E=0
  179. 3165 RETURN
  180. 3170 PO=PEEK(49152+X1+40*E+40):POKE49152+X1+40*E+40,38
  181. 3180 FORT=0TO100:NEXT:POKE49152+X1+40*E+40,PO:E=0:RETURN
  182. 3197 REM ^^^^^^^^^^^^^^^^^^^^^^^^^^
  183. 3198 REM ^ KOLLISION HUBSCHRAUBER ^
  184. 3199 REM ^^^^^^^^^^^^^^^^^^^^^^^^^^
  185. 3200 GOSUB60200:POKESI+18,0:POKEV+2,0:X2=0:Y2=INT(RND(1)*50)+90:HB=HB-1
  186. 3201 POKEV+3,Y2:O=PEEK(V+31):JS=PEEK(V+30)
  187. 3202 FORT=0TO100:P=INT(RND(1)*15):POKEV+39,P:NEXT:POKEV+39,3
  188. 3203 IFHB<=0THENPOKEV+21,0:PRINT"G A M E  O V E R":GOTO8000
  189. 3210 X=250:Y=94:POKEV,X:POKEV+1,Y:O=PEEK(V+31):GOSUB60300:GOTO1009
  190. 3300 X1=INT(X/8-4):Y1=INT(Y/8-5)
  191. 3310 FORE=X1TO0STEP-1:GOSUB61400
  192. 3315 Y1=Y1+.5
  193. 3316 IFY1>=24THENY1=24:RETURN
  194. 3319 PO=PEEK(49152+E+40*INT(Y1))
  195. 3320 POKE49152+E+40*INT(Y1),67
  196. 3321 POKE49152+E+40*INT(Y1),PO
  197. 3330 IFPEEK(49152+E-1+40*INT(Y1))<>32THENS=-1:GOTO3100
  198. 3340 NEXTE:RETURN
  199. 3400 X1=INT(X/8+4):Y1=INT(Y/8-5)
  200. 3410 FORE=X1TO39STEP1:GOSUB61400
  201. 3415 Y1=Y1+.5
  202. 3416 IFY1>=24THENY1=24:RETURN
  203. 3419 PO=PEEK(49152+E+40*INT(Y1))
  204. 3420 POKE49152+E+40*INT(Y1),69
  205. 3421 POKE49152+E+40*INT(Y1),PO
  206. 3430 IFPEEK(49152+E+1+40*INT(Y1))<>32THENS=1:GOTO3100
  207. 3440 NEXTE:RETURN
  208. 3997 REM ________________________
  209. 3998 REM _ BILD TANKEN AUFBAUEN _
  210. 3999 REM ________________________
  211. 4000 GOSUB60500:X2=0:Y2=90:POKEV+2,X2:POKEV+3,Y2
  212. 4001 X=250:Y=94:BI=1
  213. 4002 TR=49152:C=40:GOSUB4530
  214. 4009 REM ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
  215. 4010 REM ^ BILDSCHIRMABFRAGE TANKEN ^
  216. 4011 REM ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
  217. 4500 IFBI=0THEN4000
  218. 4501 IFB9=0THEN:IFEN>30ANDHU<5THENB9=1:POKEV+21,3:GOSUB61570:X3=20
  219. 4502 ONB9GOSUB61300
  220. 4503 IFY<=175ANDKL=0THENRETURN
  221. 4504 IFX>140ANDX<175ANDKL=0THENKL=1:GOSUB4511:IFLD=1THENGOTO62000
  222. 4505 PU=.05:IFY>214ANDKL=1THENH=160:OT=1:AB=AC:PU=-1:GOSUB60800
  223. 4506 IFY>218ANDKL=1THENY=Y-AB-1
  224. 4507 IFY<=170ANDKL=1THENKL=0:GOSUB4530:RETURN
  225. 4508 IFY>214ANDKL=1ANDEN>=35THENEN=35:H=32:POKESI+18,0
  226. 4509 IFY<=214ANDKL=1THENPOKESI+18,0
  227. 4510 RETURN
  228. 4511 FORT=18TO23
  229. 4512 FORI=15TO24
  230. 4515 POKETR+I+40*T,32
  231. 4520 NEXT:NEXT
  232. 4521 PRINT""
  233. 4522 PRINT"          >#### [185][185][185][185][185][185][185][185] ####?
  234. 4523 [153]"$$$$$$$$$$#####  ABSINT  ABSINT  #####$$$$$$$$$CONT
  235. 4529 RETURN
  236. 4530 PRINT""
  237. 4531 PRINT"               %%%%%%%%%%
  238. 4532 [153]"              >###/012###?
  239. 4533 PRINT"             >#''''''''''#?
  240. 4534 [153]"            >##''''''''''##?
  241. 4536 PRINT"           >###''''''''''###?
  242. 4537 [153]"          >####''''''''''####?
  243. 4538 PRINT"$$$$$$$$$$#####''''''''''#####$$$$$$$$$[154]
  244. 4560 KL[178]0:[142]
  245. 4997 [143] ________________________
  246. 4998 [143] _ BILD TUNNEL AUFBAUEN _
  247. 4999 [143] ________________________
  248. 5000 [139]BI[178]0[167]H[178]32:[137]5010
  249. 5005 [137]5300
  250. 5010 [141]60500:TI$[178]"000000"
  251. 5011 X[178]250:Y[178]94:BI[178]1:PX[178]45:PY[178]46
  252. 5019 [153]""
  253. 5020 [153]"    >6677656756567756765667878776767657
  254. 5030 FORT=0TO3:PRINT"    ()":NEXT
  255. 5035 PRINT"    ()        6786876887678768676787867
  256. 5040 [129]T[178]0[164]2:[153]"    ()                           ++":[130]
  257. 5045 [153]" (67867887876767676668787        ++
  258. 5050 PRINT" (9:[158])))))))))))))))))9;9:        ++"
  259. 5085 PRINT" (          [156]333        3         ++
  260. 5090 [153]" (           CLR3         3         ++
  261. 5095 PRINT" (                     [156]3         ++
  262. 5096 [153]" (         CLR33333       CLR3         ++
  263. 5100 PRINT" 788[159]333333388878787878787        ++
  264. 5110 [153]" ;:9OPEN3333333;:9:9:;9:9:;9:        ++
  265. 5120 PRINT"            [154]   [206][205]                ++
  266. 5125 [153]"            CONT  (null)  (null)               ++
  267. 5130 PRINT"            [154] [206]    [205]              ++
  268. 5135 [153]"$$$$$$$$$$$$CONT#$$$$$$CONT#$$$$$$$$$$$$$++CONT
  269. 5297 REM ++++++++++++++++++++++++++++
  270. 5298 REM + BILDSCHIRMABFRAGE TUNNEL +
  271. 5299 REM ++++++++++++++++++++++++++++
  272. 5300 POKETR+Q+C*17,PX
  273. 5320 POKETR+Q+C*17,PY:IFY<170THENRETURN
  274. 5340 GE=INT(RND(1)*15):IFGE>10THENGOSUB60000
  275. 5345 IFX<140ANDX>120ANDY>174ANDY<178THENPX=32:PY=32:GOSUB61100:GOSUB61200
  276. 5350 IFTI$>"000005"THENGOSUB60070
  277. 5407 IFY<=214THENPOKESI+18,0
  278. 5410 RETURN
  279. 5497 REM ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
  280. 5498 REM ^ BILDSCHIRM PANZER AUFBAUEN ^
  281. 5499 REM ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
  282. 5500 IFBI=0THENH=32:GOTO5510
  283. 5505 GOTO5700
  284. 5510 GOSUB60500
  285. 5520 X=250:Y=94:BI=1:B5=-2:POKEV+5,223:POKEV+7,223:X5=50:X6=120:POKEV+21,13
  286. 5521 POKEV+4,X5:POKEV+6,X6:GOSUB5800
  287. 5530 PRINT"":B6=2:Y7=20:G9=1
  288. 5540 PRINT"767878787878786868887868786878687868786"
  289. 5545 PRINT":;:;:;9:;9;9:9:;9:;9                   "
  290. 5547 PRINT"+)                (+"
  291. 5550 FORT=0TO2:PRINT"+)                (+[159]333333":NEXT
  292. 5555 PRINT"+)        +       (+[159]3333333337786876787"
  293. 5560 FORT=0TO3:PRINT"[159] 3        +       (+[159]333333333+)":NEXT
  294. 5565 FORT=0TO5:PRINT"+)        +       [159]333  333333+)":NEXT
  295. 5570 FORT=0TO2:PRINT"                  (+[159]333333333+)":NEXT
  296. 5575 PRINT"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$[154]"
  297. 5697 REM ++++++++++++++++++++++++++++
  298. 5698 REM + BILDSCHIRMABFRAGE PANZER +
  299. 5699 REM ++++++++++++++++++++++++++++
  300. 5700 IFX>168THENRETURN
  301. 5710 IFX5>138THENB5=3:POKE50170,24
  302. 5715 IFX5<30THENB5=-2:POKE50170,23
  303. 5720 IFX6>138THENB6=2:POKE50171,24
  304. 5730 IFX6<30THENB6=-3:POKE50171,23
  305. 5740 X5=X5-B5:X6=X6-B6
  306. 5750 POKEV+4,X5:POKEV+6,X6
  307. 5755 JS=PEEK(V+30):IFJS=5ORJS=9ORJS=13THEN3200
  308. 5765 ONG9GOSUB5820,5900
  309. 5770 RETURN
  310. 5800 X7=INT(X5/8-1):Y7=21
  311. 5810 RETURN
  312. 5811 X8=INT(X6/8-1):Y8=21
  313. 5815 RETURN
  314. 5820 Y7=Y7-1
  315. 5835 PO=PEEK(49152+X7+40*Y7-40)
  316. 5840 POKE49152+X7+40*Y7,90
  317. 5850 IFPO<>32THENPOKE49152+X7+40*Y7-40,PO:POKE49152+X7+40*Y7,32:G9=2:GOSUB5811
  318. 5860 POKE49152+X7+40*Y7,32
  319. 5870 RETURN
  320. 5900 Y8=Y8-1
  321. 5920 PO=PEEK(49152+X8+40*Y8-40)
  322. 5930 POKE49152+X8+40*Y8,90
  323. 5940 IFPO<>32THENPOKE49152+X8+40*Y8-40,PO:POKE49152+X8+40*Y8,32:G9=1:GOSUB5800
  324. 5950 POKE49152+X8+40*Y8,32
  325. 5960 RETURN
  326. 5997 REM ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
  327. 5998 REM ^ BILDSCHIRM SPINNE AUFBAUEN ^
  328. 5999 REM ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
  329. 6000 IFBI=0THENH=32:GOTO6020
  330. 6010 GOTO6300
  331. 6020 GOSUB60500:TI$="000000":V=53248:POKE50172,25:POKEV+8,50:POKEV+9,157
  332. 6030 X=250:Y=110:BI=1:POKEV+23,16:POKEV+29,19:POKEV+21,17
  333. 6040 POKEV,X:POKEV+1,Y:O=PEEK(V+31)
  334. 6050 PRINT""
  335. 6060 PRINT"            678787867868786876878677867
  336. 6070 [153]"            +;9:;9:9;9;9:9;+9:;:;ATN;9:;9
  337. 6080 FORT=0TO1:PRINT"            +)            (+":NEXT
  338. 6090 FORT=0TO2:PRINT"            +)               ":NEXT
  339. 6100 PRINT" 76768787868+
  340. 6110 [153]"(+++++++++++               +) ^ACHTUNG^
  341. 6120 PRINT"(++       ++)             (+)
  342. 6130 [153]"(++       ++               +)
  343. 6140 PRINT"(+        [159]333              +)
  344. 6150 [153]"(+        OPEN333              +)
  345. 6160 PRINT"(++       ++               +)
  346. 6170 [153]"(++       ++)             (+)
  347. 6180 PRINT"(+++++++++++7              +)
  348. 6190 [153]" ::;9:;:9;9:+              +)
  349. 6200 PRINT"            +)    [156]+(       +)
  350. 6210 [153]"            +)    CLR+(ANDANDANDANDANDANDANDCLR+)
  351. 6220 PRINT"            +)    [156]+(  [159]/012 [156]+)
  352. 6230 [153]"$$$$$$$$$$$$+$$$$$CLR+$$$$$$$$CLR+$$$$$$$$$$CONT"
  353. 6297 [143] ++++++++++++++++++++++++++++
  354. 6298 [143] + BILDSCHIRMABFRAGE SPINNE +
  355. 6299 [143] ++++++++++++++++++++++++++++
  356. 6300 [139]TI$[177]"000007"[167][141]6400
  357. 6305 [139]TI$[177]"000010"[167][141]6420
  358. 6310 PU[178].05:[139]Y[177]206[175]X[177]180[175]X[179]190[167][141]6440
  359. 6320 [139]Y[179][178]206[167][151]SI[170]18,0
  360. 6325 O[178][194](V[170]31):[139]O[178]16[167][141]6550
  361. 6399 [142]
  362. 6400 [153]"ASCASCASCASCASCASCASCASCASCASCASCASCASCCONT"
  363. 6405 O[178][194](V[170]31):[139]O[178]1[167]3200
  364. 6410 [153]"             "
  365. 6415 [142]
  366. 6420 [153]"ASCASCASCASCASCASCASCASCASCASCASCASCASCCONT"
  367. 6425 O[178][194](V[170]31):[139]O[178]1[167]3200
  368. 6430 [153]"             "
  369. 6435 TI$[178]"000000":[142]
  370. 6440 [139]HA[178]1[167][142]
  371. 6441 PU[178].05:OT[178]1:H[178]160:PU[178][171]1:[141]60800:[139]EN[177]35[167]EN[178]35:HA[178]1:H[178]32:PU[178].05:OT[178]1
  372. 6450 [139]Y[177]209[167]Y[178]Y[171]AB[171]1
  373. 6460 [142]
  374. 6550 [129]T[178]0[164]180:[151]53280,T:[151]53281,T:[141]60700:[130]:[151]53280,0
  375. 6552 [151]53281,0:LD[178]1:SC[178]SC[170]1000:[141]61200
  376. 6560 [151]V[170]21,1:[142]
  377. 6697 [143] ++++++++++++++++++
  378. 6698 [143] + PUNKTE WERTUNG +
  379. 6699 [143] ++++++++++++++++++
  380. 8000 [129]T[178]0[164]1500:[130]:[153]"LOADNOCH EINMAL [J] "
  381. 8002 [153]"SCORE ";SC
  382. 8003 [139]SC[177]AS[167]AS[178]SC
  383. 8004 [153]"HIGHSCORE ";AS
  384. 8010 [151]198,0:[146]198,1:[161]A$:[139]A$[178]"J"[167]9000
  385. 8015 [151]648,4:[158]65126
  386. 8020 [153]"LOAD DANKE!!! GOOD BYE !!!!!!!!!":[128]
  387. 9000 BI[178]0:B9[178]0:EN[178]0:HU[178]0:PU[178]0:AB[178]0:KL[178]0:H[178]0:PX[178]0:PY[178]0:GE[178]0:PO[178]0:G9[178]0
  388. 9010 B[178]0:HA[178]0:LD[178]0:SC[178]0:AC[178]0:[151]V[170]23,0:[151]V[170]29,0:[137]998
  389. 10000 [143] ^^^^^^^^^^^^^^^^^^^^^^^^^
  390. 10001 [143] ^ ANFANGSSPRITE BEWEGEN ^
  391. 10002 [143] ^^^^^^^^^^^^^^^^^^^^^^^^^
  392. 50000 [151]V,X:[151]V[170]1,Y
  393. 50010 X1[178][181](X[173]8[171]4):Y1[178][181](Y[173]8[171]5)
  394. 50020 [129]E[178]X1[164]0[169][171]1
  395. 50030 [151]49152[170]E[170]40[172]Y1,66:[151]49152[170]E[170]40[172]Y1,32
  396. 50040 [139][194](49152[170]E[171]1[170]40[172]Y1)[179][177]32[167][151]49152[170]E[171]1[170]40[172]Y1,38:[137]50070
  397. 50050 [130]E:[142]
  398. 50070 [129]T[178]0[164]100:[130]:[151]49152[170]E[171]1[170]40[172]Y1,32:X[178]X[171]3:E[178]0:[137]50000
  399. 60000 [151]TR[170]Q[170]C[172]17,32:Q[178]Q[171][181]([187](1)[172]3):Q[178]Q[170][181]([187](1)[172]3)
  400. 60010 [139]Q[179]11[167]Q[178]11
  401. 60020 [139]Q[177]14[167]Q[178]14
  402. 60060 [142]
  403. 60070 OT[178]OT[172][171]1:TI$[178]"000000"
  404. 60075 [153]""
  405. 60080 [139]OT[178][171]1[167][129]T[178]0[164]2:[153]"      ":[130]:[142]
  406. 60085 [153]"CONT  (null)(null)  "
  407. 60086 [153]" (null)CLOSECLOSE(null) "
  408. 60087 [153]"(null)    (null)CONT"
  409. 60090 [142]
  410. 60099 [143] GERAEUSCHE
  411. 60100 SI[178]54272:[151]SI[170]7,200:[151]SI[170]8,0:[151]SI[170]9,0:[151]SI[170]10,3:[151]SI[170]11,0
  412. 60110 [151]SI[170]12,0:[151]SI[170]13,15[172]16[170]15:[151]SI[170]21,0:[151]SI[170]22,150:[151]SI[170]23,243
  413. 60120 [151]SI[170]24,31:[151]SI[170]11,65
  414. 60130 [142]
  415. 60200 [151]SI[170]11,0
  416. 60201 [151]SI[170]1,5:[151]SI[170]4,0:[151]SI[170]5,11:[151]SI[170]6,0
  417. 60202 [151]SI[170]4,131
  418. 60210 [142]
  419. 60300 [139]EN[179][178]1[167]EN[178]15:[139]B[177]1[167]EN[178]35
  420. 60301 [153]"                                    CONT"
  421. 60302 [153]"LEBEN "HB
  422. 60303 [153]"SYSENERGYCONT":[129]T[178]0[164]EN:[151]49152[170]T[170]40[172]3,160:[130]
  423. 60304 [153]"               "
  424. 60310 X[178]250:Y[178]94:AB[178]AC:H[178]32:[141]61200
  425. 60315 [139]B[178]4[167]Y[178]110
  426. 60320 [142]
  427. 60500 [153]"LOAD                                    CONT"
  428. 60501 [153]"SYSENERGYCONT"
  429. 60502 [129]T[178]0[164]EN:[151]49152[170]T[170]40[172]3,160:[130]:[141]61200
  430. 60550 [142]
  431. 60700 SI[178]54272:[151]SI[170]4,0:[151]SI[170]1,10:[151]SI[170]5,12:[151]SI[170]6,0:[151]SI[170]4,131
  432. 60710 [142]
  433. 60720 SI[178]54272:[151]SI[170]4,0:[151]SI[170]1,20:[151]SI[170]5,12:[151]SI[170]6,0:[151]SI[170]4,131
  434. 60730 [142]
  435. 60800 SI[178]54272:[151]SI[170]18,0:[151]SI[170]19,0:[151]SI[170]20,15[172]16
  436. 60810 [151]SI[170]14,200:[151]SI[170]15,39:[151]SI[170]18,17
  437. 60820 [142]
  438. 60900 SI[178]54272:[151]SI[170]18,0:[151]SI[170]19,0:[151]SI[170]20,15[172]16[170]2
  439. 60910 [151]SI[170]14,200:[151]SI[170]15,59:[151]SI[170]18,17
  440. 60920 [142]
  441. 61000 OT[178]OT[172][171]1:[139]OT[178][171]1[167][153]"               ":[142]
  442. 61001 [153]"OPENLOW ON FUELCONT"
  443. 61002 [142]
  444. 61100 SC[178]SC[170]100:[153]"+CMD+CMD+CMD+CONT"
  445. 61120 [142]
  446. 61200 [153]"SCORE ";SC;"WAITCONT"
  447. 61210 [142]
  448. 61297 [143] +++++++++++++++++++++++++++++
  449. 61298 [143] + FEINDHUBSCHRAUBER BEWEGEN +
  450. 61299 [143] +++++++++++++++++++++++++++++
  451. 61300 [139]X[177]X2[167]B2[178][170]5:M4[178]22
  452. 61310 [139]X[179]X2[167]B2[178][171]5:M4[178]21
  453. 61320 [139]Y[177]Y2[167]C2[178][170]3
  454. 61330 [139]Y[179]Y2[167]C2[178][171]3
  455. 61335 X2[178]X2[170]B2:Y2[178]Y2[170]C2
  456. 61340 [151]V[170]2,X2:[151]V[170]3,Y2
  457. 61341 O[178][194](V[170]31)
  458. 61342 JS[178][194](V[170]30)
  459. 61350 [139]JS[178]3[167]3200
  460. 61351 [139]O[178]2[167]61500
  461. 61352 JS[178][194](V[170]30)
  462. 61353 [139]HU[177]3[167][141]61530
  463. 61354 O[178][194](V[170]31)
  464. 61355 [151]50169,M4
  465. 61360 [142]
  466. 61400 [139]B[178]3[167]61430
  467. 61401 [139]B[178]4[167]61470
  468. 61402 [139]HU[177]4[167][142]
  469. 61410 O[178][194](V[170]31):[139]O[178]2[167]61500
  470. 61420 [142]
  471. 61430 O[178][194](V[170]31):[139]O[178]12[167][141]61450:[151]V[170]21,1:SC[178]SC[170]200:[141]61200:G9[178]0
  472. 61440 [142]
  473. 61450 [141]60720:[129]T[178]0[164]100:[151]V[170]38,T:[130]:[142]
  474. 61470 O[178][194](V[170]31):[139]O[178]16[167]:[141]6550
  475. 61480 [142]
  476. 61500 HU[178]HU[170]1:SC[178]SC[170]100:[141]61200
  477. 61501 [141]60700
  478. 61502 [129]T[178]0[164]100:[151]V[170]40,T:[130]:X2[178]0:[151]V[170]2,X2:Y2[178][181]([187](1)[172]50)[170]90
  479. 61503 [151]V[170]3,Y2
  480. 61504 [139]HU[177]4[167][151]V[170]21,1:B9[178]0
  481. 61510 E[178]0:[142]
  482. 61530 X3[178]X3[170]1
  483. 61535 [139]X3[177]X[173]8[167][141]61570
  484. 61536 [139]X3[177]39[167][141]61570
  485. 61540 [151]49152[170]X3[170]40[172][181](Y3),68
  486. 61545 O[178][194](V[170]31):[139]O[178]1[167][151]49152[170]X3[170]40[172][181](Y3),32:[137]3200
  487. 61550 [151]49152[170]X3[170]40[172][181](Y3),32
  488. 61560 [142]
  489. 61570 X3[178][181](X2[173]8[170]4):Y3[178][181](Y2[173]8[171]5)
  490. 61580 [142]
  491. 61997 [143] _________
  492. 61998 [143] _ MUSIK _
  493. 61999 [143] _________
  494. 62000 [129]I[178]54272[164]54296:[151]I,0:[130]:[151]54296,15:[151]54275,3
  495. 62110 H1[178]54272:H2[178]H1[170]1:AD[178]54277:SR[178]AD[170]1:DR[178]AD[171]1:W1[178]64:W2[178]32
  496. 62120 [151]AD,72:[151]SR,122:[151]AD[170]7,43:[151]SR[170]7,187:[137]62250
  497. 62130 [134]F$(18),FL(18),FH(18):[129]I[178]0[164]18
  498. 62140 [135]F$(I),F:FH(I)[178][181](F[173]256):FL(I)[178]F[171]FH(I)[172]256:[130]
  499. 62150 [134]N1$(200),D1(200),N2$(200),D2(200):I[178]0
  500. 62160 [135]N1$(I),D1(I):[139]D1(I)[177]0[167]I[178]I[170]1:[137]62160
  501. 62170 I[178]0
  502. 62180 [135]N2$(I),D2(I):[139]D2(I)[177]0[167]I[178]I[170]1:[137]62180
  503. 62200 [134]L1(200),H1(200),L2(200),H2(200):I[178]0
  504. 62210 [129]J[178]0[164]18
  505. 62220 [139]F$(J)[178]N1$(I)[167]L1(I)[178]FL(J):H1(I)[178]FH(J)
  506. 62230 [139]F$(J)[178]N2$(I)[167]L2(I)[178]FL(J):H2(I)[178]FH(J)
  507. 62240 [130]:I[178]I[170]1:[139]N1$(I)[179][177]""[167]62210
  508. 62245 [142]
  509. 62250 SP[178][197]("2")
  510. 62260 [139]SP[179]1[176]SP[177]4[167]62250
  511. 62270 S1[178]0:S2[178]0:C1[178]0:C2[178]0:[151]H1,L1(S1):[151]H2,H1(S1)
  512. 62280 [151]H1[170]7,L2(S2):[151]H2[170]7,H2(S2):[151]DR,W1[176]1:[151]DR[170]7,W2[176]1
  513. 62290 C1[178]C1[170]1:[139]C1[177](D1(S1)[172]SP[173]2)[167][151]DR,W1
  514. 62300 [139]C1[179](D1(S1)[172]SP)[167]62320
  515. 62310 C1[178]0:S1[178]S1[170]1:[151]DR,W1[176]1:[151]H1,L1(S1):[151]H2,H1(S1)
  516. 62320 C2[178]C2[170]1:[139]C2[177](D2(S2)[172]SP[173]2)[167][151]DR[170]7,W2
  517. 62330 [139]C2[179](D2(S2)[172]SP)[167]62350
  518. 62340 C2[178]0:S2[178]S2[170]1:[151]DR[170]7,W2[176]1:[151]H1[170]7,L2(S2):[151]H2[170]7,H2(S2)
  519. 62350 [139]D1(S1)[177]0[167]62290
  520. 62360 [151]V[170]21,0:[137]8000
  521. 62370 [131]D3,2408,E3,2703,F#3,3034,G3,3215
  522. 62380 [131]A3,3608,H3,4050,C#4,4547,D4,4817
  523. 62390 [131]E4,5407,F#4,6069,G4,6403,A4,7217
  524. 62400 [131]H4,8101,C#5,9094,D5,9634,E5,10814
  525. 62410 [131]F#5,12139,G5,12860,A5,14435
  526. 62420 [143]  1.STIMME
  527. 62430 [131]D5,3,D5,1,D5,1,E5,1,D5,1,C#5,1,H4,4,H4,4,C#5,1,C#5,1
  528. 62440 [131]D5,1,E5,3,D5,1,E5,1,F#5,2,F#5,2,E5,1,A4,3
  529. 62450 [131]D5,3,D5,1,D5,1,E5,1,D5,1,C#5,1,H4,4,H4,4,C#5,1,C#5,1
  530. 62460 [131]D5,1,E5,3,D5,1,E5,1,F#5,2,F#5,2,E5,1,A4,3
  531. 62470 [131]F#5,2,A5,2,G5,2,F#5,1,D5,1,E5,1,F#5,2,E5,5
  532. 62480 [131]F#5,3,E5,1,D5,2,D5,1,H4,1,E5,1,F#5,2,E5,3,D5,1,E5,1
  533. 62490 [131]F#5,2,A5,2,G5,2,F#5,1,D5,1,E5,1,C#5,1,H4,1,A4,5
  534. 62500 [131]D5,3,C#5,1,H4,1,C#5,1,D5,2,E5,10
  535. 62510 [131]F#5,2,E5,6,F#5,2,E5,2,D5,1,E5,1,F#5,2,A5,2,G5,2,F#5,1,D5,3,F#5,2,E5,6
  536. 62520 [131]F#5,2,E5,6,F#5,2,E5,2,D5,1,E5,1,F#5,2,A5,2,G5,2,F#5,1,D5,1
  537. 62530 [131]E5,1,C#5,1,H4,1,A4,3,H4,1,C#5,1
  538. 62540 [131]D5,3,D5,1,D5,1,E5,1,D5,1,C#5,1,H4,4,H4,4,C#5,1,C#5,1
  539. 62550 [131]D5,1,E5,3,D5,1,E5,1,F#5,2,F#5,2,E5,1,A4,3
  540. 62560 [131]D5,3,D5,1,D5,1,E5,1,D5,1,C#5,1,H4,4,H4,4,C#5,1,C#5,1
  541. 62570 [131]D5,1,E5,3,D5,1,E5,1,F#5,2,F#5,2,E5,1,D5,7
  542. 62580 [131],-1
  543. 62590 [143]  2.STIMME
  544. 62600 [131]D3,4,D3,4,G3,4,H3,2,D3,2,A3,4,A3,4,D3,4,A3,2,E4,1,A3,1
  545. 62610 [131]D3,4,D3,4,G3,4,H3,2,D3,2,A3,4,A3,4,D3,4,A3,2,E4,1,A3,1
  546. 62620 [131]D3,4,D3,4,A3,4,A3,4,H3,4,G3,4,A3,4,A3,4
  547. 62630 [131]D3,4,D3,4,A3,4,A3,4,H3,4,G3,4,A3,4,A3,3
  548. 62640 [131]A3,1,A3,7,A3,1,A3,8,D3,4,D3,4,A3,4,A3,3
  549. 62650 [131]A3,1,A3,7,A3,1,A3,8,D3,4,D3,4,A3,4,A3,4
  550. 62660 [131]D3,4,D3,4,G3,4,H3,2,D3,2,A3,4,A3,4,D3,4,A3,2,E4,1,A3,1
  551. 62670 [131]D3,4,D3,4,G3,4,H3,2,D3,2,A3,4,A3,4,D3,4,D3,8
  552. 62680 [131],-1
  553. 62997 [143] +++++++++++++++
  554. 62998 [143] + GRAVITATION +
  555. 62999 [143] +++++++++++++++
  556. 63000 [153][199](142):[151]V[170]21,0
  557. 63001 [153]"LOADGRAVITATION  [ 1 ASC 3 ]"
  558. 63010 [151]198,0:[146]198,1:[161]A$:[139]A$[178]"1"[167]AC[178].1
  559. 63020 [139]A$[178]"2"[167]AC[178].5
  560. 63030 [139]A$[178]"3"[167]AC[178]1
  561. 63040 [139]A$[179]"1"[176]A$[177]"3"[167]63010
  562. 63050 [142]
  563.